home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / trace.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  28.2 KB  |  1,354 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "trace.h"
  4. init_trace(){do_init(VV);}
  5. /*    macro definition for TRACE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     base[2]= V1;}
  15.     if((base[2])!=Cnil){
  16.     goto T2;}
  17.     base[3]= VV[0];
  18.     vs_top=(vs_base=base+3)+1;
  19.     return;
  20. T2:;
  21.     base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9]));
  22.     vs_top=(vs_base=base+3)+1;
  23.     return;
  24. }
  25. /*    macro definition for UNTRACE    */
  26.  
  27. static L2()
  28. {register object *base=vs_base;
  29.     register object *sup=base+VM2; VC2
  30.     vs_reserve(VM2);
  31.     check_arg(2);
  32.     vs_top=sup;
  33.     {object V2=base[0]->c.c_cdr;
  34.     base[2]= V2;}
  35.     if((base[2])!=Cnil){
  36.     goto T5;}
  37.     base[3]= VV[10];
  38.     vs_top=(vs_base=base+3)+1;
  39.     return;
  40. T5:;
  41.     base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2]));
  42.     vs_top=(vs_base=base+3)+1;
  43.     return;
  44. }
  45. /*    local entry for function TRACE-ONE-PREPROCESS    */
  46.  
  47. static object LI3(V4)
  48.  
  49. object V4;
  50. {     VMB3 VMS3 VMV3
  51. TTL:;
  52.     if(!(type_of((V4))==t_symbol)){
  53.     goto T8;}
  54.     V4= make_cons((V4),Cnil);
  55.     goto TTL;
  56. T8:;
  57.     {register object V5;
  58.     register object V6;
  59.     object V7;
  60.     object V8;
  61.     register object V9;
  62.     register object V10;
  63.     register object V11;
  64.     register object V12;
  65.     register object V13;
  66.     V5= cdr((V4));
  67.     V7= list(3,VV[12],list(2,VV[7],car((V4))),VV[13]);
  68.     V8= list(3,VV[12],list(2,VV[7],car((V4))),VV[14]);
  69.     V6= Cnil;
  70.     V9= Ct;
  71.     V10= Ct;
  72.     V11= Ct;
  73.     V12= Cnil;
  74.     V13= Cnil;
  75. T16:;
  76.     if(((V5))!=Cnil){
  77.     goto T17;}
  78.     if(((V12))==Cnil){
  79.     goto T20;}
  80.     vs_base=vs_top;
  81.     Lgensym();
  82.     vs_top=sup;
  83.     V13= vs_base[0];
  84.     if(!(((V9))==(Ct))){
  85.     goto T27;}
  86.     V9= list(3,VV[15],(V13),(V12));
  87.     goto T25;
  88. T27:;
  89.     V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);
  90. T25:;
  91.     V14= make_cons((V13),small_fixnum(0));
  92.     V6= make_cons(/* INLINE-ARGS */V14,(V6));
  93.     V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10));
  94.     V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));
  95. T20:;
  96.     V15= car((V4));
  97.     V16= list(2,VV[7],(V9));
  98.     V17= list(2,VV[7],(V10));
  99.     V18= list(2,VV[7],(V7));
  100.     V19= list(2,VV[7],(V11));
  101.     {object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8)));
  102.     VMR3(V20)}
  103. T17:;
  104.     {object V21= car((V5));
  105.     if((V21!= VV[29]))goto T38;
  106.     {register object V22;
  107.     register object V23;
  108.     V22= cadr((V5));
  109.     V23= Cnil;
  110. T42:;
  111.     if(((V22))!=Cnil){
  112.     goto T43;}
  113.     V6= (V23);
  114.     goto T39;
  115. T43:;
  116.     if(!(type_of(car((V22)))==t_symbol)){
  117.     goto T51;}
  118.     V24= make_cons(car((V22)),Cnil);
  119.     goto T49;
  120. T51:;
  121.     V25= caar((V22));
  122.     base[0]= cadar((V22));
  123.     vs_top=(vs_base=base+0)+1;
  124.     Leval();
  125.     vs_top=sup;
  126.     V26= vs_base[0];
  127.     V24= make_cons(/* INLINE-ARGS */V25,V26);
  128. T49:;
  129.     V23= make_cons(V24,(V23));
  130.     V22= cdr((V22));
  131.     goto T42;}
  132. T39:;
  133.     goto T37;
  134. T38:;
  135.     if((V21!= VV[98]))goto T58;
  136.     V9= cadr((V5));
  137.     goto T37;
  138. T58:;
  139.     if((V21!= VV[99]))goto T60;
  140.     V10= cadr((V5));
  141.     goto T37;
  142. T60:;
  143.     if((V21!= VV[100]))goto T62;
  144.     V7= cadr((V5));
  145.     goto T37;
  146. T62:;
  147.     if((V21!= VV[101]))goto T64;
  148.     V11= cadr((V5));
  149.     goto T37;
  150. T64:;
  151.     if((V21!= VV[102]))goto T66;
  152.     V8= cadr((V5));
  153.     goto T37;
  154. T66:;
  155.     if((V21!= VV[28]))goto T68;
  156.     V12= cadr((V5));
  157.     goto T37;
  158. T68:;}
  159. T37:;
  160.     V5= cddr((V5));
  161.     goto T16;}
  162. }
  163. /*    local entry for function CHECK-TRACE-SPEC    */
  164.  
  165. static object LI4(V28)
  166.  
  167. register object V28;
  168. {     VMB4 VMS4 VMV4
  169. TTL:;
  170.     if(!(type_of((V28))==t_symbol)){
  171.     goto T73;}
  172.     {object V29 = Ct;
  173.     VMR4(V29)}
  174. T73:;
  175.     if(!(type_of((V28))==t_cons)){
  176.     goto T76;}
  177.     base[0]= (V28);
  178.     vs_top=(vs_base=base+0)+1;
  179.     Llast();
  180.     vs_top=sup;
  181.     V30= vs_base[0];
  182.     if((cdr(V30))!=Cnil){
  183.     goto T76;}
  184.     {object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);
  185.     VMR4(V31)}
  186. T76:;
  187.     base[0]= VV[21];
  188.     base[1]= (V28);
  189.     vs_top=(vs_base=base+0)+2;
  190.     Lerror();
  191.     vs_top=sup;
  192.     {object V32 = vs_base[0];
  193.     VMR4(V32)}
  194. }
  195. /*    local entry for function CHECK-DECLARATIONS    */
  196.  
  197. static object LI5(V34)
  198.  
  199. register object V34;
  200. {     VMB5 VMS5 VMV5
  201. TTL:;
  202.     {register object V35;
  203.     V35= Cnil;
  204.     if(!(type_of((V34))==t_cons)){
  205.     goto T86;}
  206.     if(!(type_of(car((V34)))==t_cons)){
  207.     goto T91;}
  208.     V35= car((V34));
  209.     goto T89;
  210. T91:;
  211.     V35= list(2,car((V34)),Cnil);
  212. T89:;
  213.     if(type_of(car((V35)))==t_symbol){
  214.     goto T93;}
  215.     base[0]= VV[22];
  216.     base[1]= car((V35));
  217.     vs_top=(vs_base=base+0)+2;
  218.     Lerror();
  219.     vs_top=sup;
  220. T93:;
  221.     if((cddr((V35)))==Cnil){
  222.     goto T98;}
  223.     base[0]= VV[23];
  224.     base[1]= (V35);
  225.     vs_top=(vs_base=base+0)+2;
  226.     Lerror();
  227.     vs_top=sup;
  228. T98:;
  229.     V37= car((V35));
  230.     V38= (*(LnkLI104))();
  231.     {register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38;
  232.     while(!endp(V36))
  233.     if(type_of(V36->c.c_car)==t_cons &&eql(x,V36->c.c_car->c.c_car)){
  234.     goto T105;
  235.     }else V36=V36->c.c_cdr;
  236.     goto T104;}
  237. T105:;
  238.     base[0]= VV[24];
  239.     base[1]= car((V35));
  240.     vs_top=(vs_base=base+0)+2;
  241.     Lerror();
  242.     vs_top=sup;
  243.     {object V39 = vs_base[0];
  244.     VMR5(V39)}
  245. T104:;
  246.     {object V40 = Cnil;
  247.     VMR5(V40)}
  248. T86:;
  249.     {object V41 = Cnil;
  250.     VMR5(V41)}}
  251. }
  252. /*    local entry for function CHECK-TRACE-ARGS    */
  253.  
  254. static object LI6(V45,V46,V47)
  255.  
  256. register object V45;register object V46;register object V47;
  257. {     VMB6 VMS6 VMV6
  258. TTL:;
  259.     if(((V46))==Cnil){
  260.     goto T109;}
  261.     if((cdr((V46)))!=Cnil){
  262.     goto T112;}
  263.     base[0]= VV[25];
  264.     base[1]= (V45);
  265.     vs_top=(vs_base=base+0)+2;
  266.     Lerror();
  267.     vs_top=sup;
  268.     {object V48 = vs_base[0];
  269.     VMR6(V48)}
  270. T112:;
  271.     {register object x= car((V46)),V49= (V47);
  272.     while(!endp(V49))
  273.     if(eql(x,V49->c.c_car)){
  274.     goto T118;
  275.     }else V49=V49->c.c_cdr;
  276.     goto T117;}
  277. T118:;
  278.     base[0]= VV[26];
  279.     base[1]= car((V46));
  280.     base[2]= (V45);
  281.     vs_top=(vs_base=base+0)+3;
  282.     Lerror();
  283.     vs_top=sup;
  284.     {object V50 = vs_base[0];
  285.     VMR6(V50)}
  286. T117:;
  287.     {object V51= car((V46));
  288.     if((V51!= VV[100])
  289.     && (V51!= VV[102])
  290.     && (V51!= VV[98])
  291.     && (V51!= VV[99])
  292.     && (V51!= VV[101]))goto T122;
  293.     {object V52;
  294.     V52= cddr((V46));
  295.     V47= make_cons(car((V46)),(V47));
  296.     V46= (V52);}
  297.     goto TTL;
  298. T122:;
  299.     if((V51!= VV[28]))goto T127;
  300.     {object V53= cadr((V46));
  301.     if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){
  302.     goto T129;}}
  303.     if(number_compare(cadr((V46)),small_fixnum(0))>0){
  304.     goto T128;}
  305. T129:;
  306.     base[0]= VV[27];
  307.     base[1]= cadr((V46));
  308.     vs_top=(vs_base=base+0)+2;
  309.     Lerror();
  310.     vs_top=sup;
  311. T128:;
  312.     V46= cddr((V46));
  313.     V47= make_cons(VV[28],(V47));
  314.     goto TTL;
  315. T127:;
  316.     if((V51!= VV[29]))goto T139;
  317.     (void)((*(LnkLI105))(cadr((V46))));
  318.     V46= cddr((V46));
  319.     V47= make_cons(VV[29],(V47));
  320.     goto TTL;
  321. T139:;
  322.     base[0]= VV[30];
  323.     base[1]= (V45);
  324.     base[2]= car((V46));
  325.     vs_top=(vs_base=base+0)+3;
  326.     Lerror();
  327.     vs_top=sup;
  328.     {object V54 = vs_base[0];
  329.     VMR6(V54)}}
  330. T109:;
  331.     {object V55 = Cnil;
  332.     VMR6(V55)}
  333. }
  334. /*    local entry for function TRACE-ONE    */
  335.  
  336. static object LI7(V57)
  337.  
  338. register object V57;
  339. {     VMB7 VMS7 VMV7
  340. TTL:;
  341.     {object V58;
  342.     register object V59;
  343.     V58= Cnil;
  344.     if(!(type_of((V57))==t_cons)){
  345.     goto T151;}
  346.     V59= car((V57));
  347.     goto T149;
  348. T151:;
  349.     V59= (V57);
  350. T149:;
  351.     base[1]= (V59);
  352.     vs_top=(vs_base=base+1)+1;
  353.     Lfboundp();
  354.     vs_top=sup;
  355.     if((vs_base[0])!=Cnil){
  356.     goto T153;}
  357.     base[1]= symbol_value(VV[31]);
  358.     base[2]= VV[32];
  359.     base[3]= (V59);
  360.     vs_top=(vs_base=base+1)+3;
  361.     Lformat();
  362.     vs_top=sup;
  363.     {object V60 = Cnil;
  364.     VMR7(V60)}
  365. T153:;
  366.     base[1]= (V59);
  367.     vs_top=(vs_base=base+1)+1;
  368.     Lspecial_form_p();
  369.     vs_top=sup;
  370.     if((vs_base[0])==Cnil){
  371.     goto T161;}
  372.     base[1]= symbol_value(VV[31]);
  373.     base[2]= VV[33];
  374.     base[3]= (V59);
  375.     vs_top=(vs_base=base+1)+3;
  376.     Lformat();
  377.     vs_top=sup;
  378.     {object V61 = Cnil;
  379.     VMR7(V61)}
  380. T161:;
  381.     base[1]= (V59);
  382.     vs_top=(vs_base=base+1)+1;
  383.     Lmacro_function();
  384.     vs_top=sup;
  385.     if((vs_base[0])==Cnil){
  386.     goto T169;}
  387.     base[1]= symbol_value(VV[31]);
  388.     base[2]= VV[34];
  389.     base[3]= (V59);
  390.     vs_top=(vs_base=base+1)+3;
  391.     Lformat();
  392.     vs_top=sup;
  393.     {object V62 = Cnil;
  394.     VMR7(V62)}
  395. T169:;
  396.     if((get((V59),VV[35],Cnil))==Cnil){
  397.     goto T177;}
  398.     (void)((*(LnkLI106))((V59)));
  399. T177:;
  400.     (void)((*(LnkLI107))((V57)));
  401.     V57= (*(LnkLI108))((V57));
  402.     vs_base=vs_top;
  403.     Lgensym();
  404.     vs_top=sup;
  405.     V58= vs_base[0];
  406.     base[1]= (V58);
  407.     base[3]= (V59);
  408.     vs_top=(vs_base=base+3)+1;
  409.     Lsymbol_function();
  410.     vs_top=sup;
  411.     base[2]= vs_base[0];
  412.     vs_top=(vs_base=base+1)+2;
  413.     siLfset();
  414.     vs_top=sup;
  415.     base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],cddr((V57))));
  416.     vs_top=(vs_base=base+1)+1;
  417.     Leval();
  418.     vs_top=sup;
  419.     (void)(putprop((V59),(V58),VV[35]));
  420.     V63= make_cons((V59),cadr((V57)));
  421.     setq(VV[40],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[40])));
  422.     {object V64 = make_cons((V59),Cnil);
  423.     VMR7(V64)}}
  424. }
  425. /*    local entry for function RESET-TRACE-DECLARATIONS    */
  426.  
  427. static object LI8(V66)
  428.  
  429. register object V66;
  430. {     VMB8 VMS8 VMV8
  431. TTL:;
  432.     if(((V66))==Cnil){
  433.     goto T194;}
  434.     base[0]= caar((V66));
  435.     base[1]= cdar((V66));
  436.     vs_top=(vs_base=base+0)+2;
  437.     Lset();
  438.     vs_top=sup;
  439.     V66= cdr((V66));
  440.     goto TTL;
  441. T194:;
  442.     {object V67 = Cnil;
  443.     VMR8(V67)}
  444. }
  445. /*    local entry for function ALL-TRACE-DECLARATIONS    */
  446.  
  447. static object LI9()
  448.  
  449. {     VMB9 VMS9 VMV9
  450. TTL:;
  451.     {register object V68;
  452.     V68= Cnil;
  453.     {register object V69;
  454.     register object V70;
  455.     V69= symbol_value(VV[40]);
  456.     V70= car((V69));
  457. T206:;
  458.     if(!(endp((V69)))){
  459.     goto T207;}
  460.     goto T202;
  461. T207:;
  462.     V68= append((V68),cdr((V70)));
  463.     V69= cdr((V69));
  464.     V70= car((V69));
  465.     goto T206;}
  466. T202:;
  467.     {object V71 = (V68);
  468.     VMR9(V71)}}
  469. }
  470. /*    function definition for TRACE-CALL    */
  471.  
  472. static L10()
  473. {register object *base=vs_base;
  474.     register object *sup=base+VM10; VC10
  475.     vs_reserve(VM10);
  476.     bds_check;
  477.     {object V72;
  478.     register object V73;
  479.     object V74;
  480.     object V75;
  481.     object V76;
  482.     object V77;
  483.     object V78;
  484.     check_arg(7);
  485.     V72=(base[0]);
  486.     V73=(base[1]);
  487.     V74=(base[2]);
  488.     V75=(base[3]);
  489.     V76=(base[4]);
  490.     V77=(base[5]);
  491.     V78=(base[6]);
  492.     vs_top=sup;
  493. TTL:;
  494.     {register object V79;
  495.     object V80;
  496.     bds_bind(VV[41],symbol_value(VV[41]));
  497.     V79= Cnil;
  498.     V80= Cnil;
  499.     if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){
  500.     goto T220;}
  501.     V81= (*(LnkLI104))();
  502.     (void)((*(LnkLI109))(/* INLINE-ARGS */V81));
  503. T220:;
  504.     V82= list(2,VV[13],list(2,VV[7],(V73)));
  505.     base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));
  506.     vs_top=(vs_base=base+8)+1;
  507.     Leval();
  508.     vs_top=sup;
  509.     if((vs_base[0])==Cnil){
  510.     goto T224;}
  511.     (VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind));
  512.     V83= number_times((VV[41]->s.s_dbind),small_fixnum(2));
  513.     V80= (number_compare(/* INLINE-ARGS */V83,small_fixnum(20))<=0?(/* INLINE-ARGS */V83):small_fixnum(20));
  514.     base[8]= symbol_value(VV[31]);
  515.     vs_top=(vs_base=base+8)+1;
  516.     Lfresh_line();
  517.     vs_top=sup;
  518.     if(((V75))==(Ct)){
  519.     goto T234;}
  520.     V84= list(2,VV[13],list(2,VV[7],(V73)));
  521.     base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V84,Cnil),(V75));
  522.     vs_top=(vs_base=base+8)+1;
  523.     Leval();
  524.     vs_top=sup;
  525.     if((vs_base[0])==Cnil){
  526.     goto T233;}
  527. T234:;
  528.     base[8]= symbol_value(VV[31]);
  529.     base[9]= VV[42];
  530.     base[10]= (V80);
  531.     base[11]= (VV[41]->s.s_dbind);
  532.     vs_top=(vs_base=base+8)+4;
  533.     Lformat();
  534.     vs_top=sup;
  535.     base[8]= symbol_value(VV[31]);
  536.     base[9]= VV[43];
  537.     V85= list(2,VV[13],list(2,VV[7],(V73)));
  538.     base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76));
  539.     vs_top=(vs_base=base+11)+1;
  540.     Leval();
  541.     vs_top=sup;
  542.     base[10]= vs_base[0];
  543.     vs_top=(vs_base=base+8)+3;
  544.     Lformat();
  545.     vs_top=sup;
  546.     base[8]= symbol_value(VV[31]);
  547.     vs_top=(vs_base=base+8)+1;
  548.     Lfresh_line();
  549.     vs_top=sup;
  550. T233:;
  551.     base[8]= (V72);
  552.     {object V86;
  553.     V86= (V73);
  554.      vs_top=base+9;
  555.      while(!endp(V86))
  556.      {vs_push(car(V86));V86=cdr(V86);}
  557.     vs_base=base+9;}
  558.     super_funcall_no_event(base[8]);
  559.     Llist();
  560.     vs_top=sup;
  561.     V79= vs_base[0];
  562.     if(((V77))==(Ct)){
  563.     goto T256;}
  564.     V87= list(2,VV[13],list(2,VV[7],(V73)));
  565.     base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V87,list(2,VV[14],list(2,VV[7],(V79)))),(V77));
  566.     vs_top=(vs_base=base+8)+1;
  567.     Leval();
  568.     vs_top=sup;
  569.     if((vs_base[0])==Cnil){
  570.     goto T255;}
  571. T256:;
  572.     base[8]= symbol_value(VV[31]);
  573.     base[9]= VV[44];
  574.     base[10]= (V80);
  575.     base[11]= (VV[41]->s.s_dbind);
  576.     vs_top=(vs_base=base+8)+4;
  577.     Lformat();
  578.     vs_top=sup;
  579.     base[8]= symbol_value(VV[31]);
  580.     base[9]= VV[45];
  581.     V88= list(2,VV[13],list(2,VV[7],(V73)));
  582.     base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V79)))),(V78));
  583.     vs_top=(vs_base=base+11)+1;
  584.     Leval();
  585.     vs_top=sup;
  586.     base[10]= vs_base[0];
  587.     vs_top=(vs_base=base+8)+3;
  588.     Lformat();
  589.     vs_top=sup;
  590. T255:;
  591.     (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));
  592.     base[8]= (V79);
  593.     vs_top=(vs_base=base+8)+1;
  594.     Lvalues_list();
  595.     bds_unwind1;
  596.     return;
  597. T224:;
  598.     base[8]= (V72);
  599.     {object V89;
  600.     V89= (V73);
  601.      vs_top=base+9;
  602.      while(!endp(V89))
  603.      {vs_push(car(V89));V89=cdr(V89);}
  604.     vs_base=base+9;}
  605.     super_funcall_no_event(base[8]);
  606.     bds_unwind1;
  607.     return;}
  608.     }
  609. }
  610. /*    local entry for function UNTRACE-ONE    */
  611.  
  612. static object LI12(V91)
  613.  
  614. object V91;
  615. {     VMB11 VMS11 VMV11
  616. TTL:;
  617.     {object V92;
  618.     base[0]=MMcons((V91),Cnil);
  619.     V92= Cnil;
  620.     V92= get((base[0]->c.c_car),VV[35],Cnil);
  621.     if(((V92))==Cnil){
  622.     goto T277;}
  623.     (void)(remprop((base[0]->c.c_car),VV[35]));
  624.     base[1]= (base[0]->c.c_car);
  625.     vs_top=(vs_base=base+1)+1;
  626.     Lfboundp();
  627.     vs_top=sup;
  628.     if((vs_base[0])!=Cnil){
  629.     goto T283;}
  630.     base[1]= symbol_value(VV[31]);
  631.     base[2]= VV[46];
  632.     base[3]= (base[0]->c.c_car);
  633.     vs_top=(vs_base=base+1)+3;
  634.     Lformat();
  635.     vs_top=sup;
  636.     goto T281;
  637. T283:;
  638.     base[1]= (base[0]->c.c_car);
  639.     vs_top=(vs_base=base+1)+1;
  640.     Lsymbol_function();
  641.     vs_top=sup;
  642.     V93= vs_base[0];
  643.     if(!(type_of(V93)==t_cons)){
  644.     goto T290;}
  645.     base[1]= (base[0]->c.c_car);
  646.     vs_top=(vs_base=base+1)+1;
  647.     Lsymbol_function();
  648.     vs_top=sup;
  649.     V94= vs_base[0];
  650.     if(!(type_of(cadddr(V94))==t_cons)){
  651.     goto T290;}
  652.     base[1]= (base[0]->c.c_car);
  653.     vs_top=(vs_base=base+1)+1;
  654.     Lsymbol_function();
  655.     vs_top=sup;
  656.     V95= vs_base[0];
  657.     if(!((car(cadddr(V95)))==(VV[38]))){
  658.     goto T290;}
  659.     base[1]= (base[0]->c.c_car);
  660.     base[3]= (V92);
  661.     vs_top=(vs_base=base+3)+1;
  662.     Lsymbol_function();
  663.     vs_top=sup;
  664.     base[2]= vs_base[0];
  665.     vs_top=(vs_base=base+1)+2;
  666.     siLfset();
  667.     vs_top=sup;
  668.     goto T281;
  669. T290:;
  670.     base[1]= symbol_value(VV[31]);
  671.     base[2]= VV[47];
  672.     base[3]= (base[0]->c.c_car);
  673.     vs_top=(vs_base=base+1)+3;
  674.     Lformat();
  675.     vs_top=sup;
  676. T281:;
  677.     V96= 
  678.     make_cclosure_new(LC17,Cnil,base[0],Cdata);
  679.     setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));
  680.     {object V97 = make_cons((base[0]->c.c_car),Cnil);
  681.     VMR11(V97)}
  682. T277:;
  683.     base[1]= symbol_value(VV[31]);
  684.     base[2]= VV[49];
  685.     base[3]= (base[0]->c.c_car);
  686.     vs_top=(vs_base=base+1)+3;
  687.     Lformat();
  688.     vs_top=sup;
  689.     {object V98 = Cnil;
  690.     VMR11(V98)}}
  691. }
  692. /*    local entry for function STEP-READ-LINE    */
  693.  
  694. static object LI13()
  695.  
  696. {     VMB12 VMS12 VMV12
  697. TTL:;
  698.     {register object V99;
  699.     base[0]= symbol_value(VV[50]);
  700.     vs_top=(vs_base=base+0)+1;
  701.     Lread_char();
  702.     vs_top=sup;
  703.     V99= vs_base[0];
  704. T318:;
  705.     base[0]= (V99);
  706.     base[1]= VV[51];
  707.     vs_top=(vs_base=base+0)+2;
  708.     Lchar_eq();
  709.     vs_top=sup;
  710.     if((vs_base[0])!=Cnil){
  711.     goto T320;}
  712.     base[0]= (V99);
  713.     base[1]= VV[52];
  714.     vs_top=(vs_base=base+0)+2;
  715.     Lchar_eq();
  716.     vs_top=sup;
  717.     if((vs_base[0])==Cnil){
  718.     goto T319;}
  719. T320:;
  720.     {object V100 = Cnil;
  721.     VMR12(V100)}
  722. T319:;
  723.     base[0]= symbol_value(VV[50]);
  724.     vs_top=(vs_base=base+0)+1;
  725.     Lread_char();
  726.     vs_top=sup;
  727.     V99= vs_base[0];
  728.     goto T318;}
  729. }
  730. /*    macro definition for IF-ERROR    */
  731.  
  732. static L14()
  733. {register object *base=vs_base;
  734.     register object *sup=base+VM13; VC13
  735.     vs_reserve(VM13);
  736.     check_arg(2);
  737.     vs_top=sup;
  738.     {object V101=base[0]->c.c_cdr;
  739.     if(endp(V101))invalid_macro_call();
  740.     base[2]= (V101->c.c_car);
  741.     V101=V101->c.c_cdr;
  742.     if(endp(V101))invalid_macro_call();
  743.     base[3]= (V101->c.c_car);
  744.     V101=V101->c.c_cdr;
  745.     if(!endp(V101))invalid_macro_call();}
  746.     {object V102;
  747.     object V103;
  748.     object V104;
  749.     vs_base=vs_top;
  750.     Lgensym();
  751.     vs_top=sup;
  752.     V102= vs_base[0];
  753.     vs_base=vs_top;
  754.     Lgensym();
  755.     vs_top=sup;
  756.     V103= vs_base[0];
  757.     vs_base=vs_top;
  758.     Lgensym();
  759.     vs_top=sup;
  760.     V104= vs_base[0];
  761.     V105= list(2,(V102),(V103));
  762.     V106= list(5,VV[18],(V102),base[3],(V103),Ct);
  763.     base[4]= list(3,VV[1],/* INLINE-ARGS */V105,list(3,VV[53],(V104),list(3,VV[3],/* INLINE-ARGS */V106,list(3,VV[54],(V104),list(4,VV[16],(V103),(V102),base[2])))));
  764.     vs_top=(vs_base=base+4)+1;
  765.     return;}
  766. }
  767. /*    macro definition for STEP    */
  768.  
  769. static L15()
  770. {register object *base=vs_base;
  771.     register object *sup=base+VM14; VC14
  772.     vs_reserve(VM14);
  773.     check_arg(2);
  774.     vs_top=sup;
  775.     {object V107=base[0]->c.c_cdr;
  776.     if(endp(V107))invalid_macro_call();
  777.     base[2]= (V107->c.c_car);
  778.     V107=V107->c.c_cdr;
  779.     if(!endp(V107))invalid_macro_call();}
  780.     base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil));
  781.     vs_top=(vs_base=base+3)+1;
  782.     return;
  783. }
  784. /*    function definition for STEPPER    */
  785.  
  786. static L16()
  787. {register object *VOL base=vs_base;
  788.     register object *VOL sup=base+VM15; VC15
  789.     vs_reserve(VM15);
  790.     bds_check;
  791.     {VOL object V108;
  792.     VOL object V109;
  793.     if(vs_top-vs_base<1) too_few_arguments();
  794.     if(vs_top-vs_base>2) too_many_arguments();
  795.     V108=(base[0]);
  796.     vs_base=vs_base+1;
  797.     if(vs_base>=vs_top){vs_top=sup;goto T336;}
  798.     V109=(base[1]);
  799.     vs_top=sup;
  800.     goto T337;
  801. T336:;
  802.     V109= Cnil;
  803. T337:;
  804.     {VOL object V110;
  805.     VOL object V111;
  806.     V110= Cnil;
  807.     bds_bind(VV[61],symbol_value(VV[61]));
  808.     V111= Cnil;
  809.     if(!((symbol_value(VV[62]))==(Ct))){
  810.     goto T341;}
  811.     base[3]= (V108);
  812.     base[4]= Cnil;
  813.     base[5]= Cnil;
  814.     base[6]= (V109);
  815.     vs_top=(vs_base=base+3)+4;
  816.     Levalhook();
  817.     bds_unwind1;
  818.     return;
  819. T341:;
  820.     if(!(type_of(symbol_value(VV[62]))==t_fixnum||
  821. type_of(symbol_value(VV[62]))==t_bignum||
  822. type_of(symbol_value(VV[62]))==t_ratio||
  823. type_of(symbol_value(VV[62]))==t_shortfloat||
  824. type_of(symbol_value(VV[62]))==t_longfloat||
  825. type_of(symbol_value(VV[62]))==t_complex)){
  826.     goto T348;}
  827.     V112= one_plus((VV[61]->s.s_dbind));
  828.     if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){
  829.     goto T352;}
  830.     base[3]= (V108);
  831.     base[4]= Cnil;
  832.     base[5]= Cnil;
  833.     base[6]= (V109);
  834.     vs_top=(vs_base=base+3)+4;
  835.     Levalhook();
  836.     bds_unwind1;
  837.     return;
  838. T352:;
  839.     setq(VV[62],Cnil);
  840. T348:;
  841.     if((symbol_value(VV[63]))==Cnil){
  842.     goto T359;}
  843.     if(!(type_of((V108))==t_cons)){
  844.     goto T363;}
  845.     if(!((car((V108)))==(symbol_value(VV[63])))){
  846.     goto T363;}
  847.     bds_bind(VV[63],Cnil);
  848.     base[4]= (V108);
  849.     base[5]= (V109);
  850.     vs_top=(vs_base=base+4)+2;
  851.     (void) (*Lnk60)();
  852.     bds_unwind1;
  853.     bds_unwind1;
  854.     return;
  855. T363:;
  856.     base[3]= (V108);
  857.     base[4]= symbol_function(VV[60]);
  858.     base[5]= Cnil;
  859.     base[6]= (V109);
  860.     vs_top=(vs_base=base+3)+4;
  861.     Levalhook();
  862.     bds_unwind1;
  863.     return;
  864. T359:;
  865.     (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));
  866.     V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));
  867.     V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));
  868. T379:;
  869.     base[3]= symbol_value(VV[50]);
  870.     base[4]= VV[64];
  871.     base[5]= (V111);
  872.     base[6]= (V108);
  873.     vs_top=(vs_base=base+3)+4;
  874.     Lformat();
  875.     vs_top=sup;
  876.     base[3]= symbol_value(VV[50]);
  877.     vs_top=(vs_base=base+3)+1;
  878.     Lfinish_output();
  879.     vs_top=sup;
  880.     {register object V116;
  881.     base[3]= symbol_value(VV[50]);
  882.     vs_top=(vs_base=base+3)+1;
  883.     Lread_char();
  884.     vs_top=sup;
  885.     V116= vs_base[0];
  886. T392:;
  887.     base[3]= (V116);
  888.     base[4]= VV[65];
  889.     vs_top=(vs_base=base+3)+2;
  890.     Lchar_neq();
  891.     vs_top=sup;
  892.     if((vs_base[0])==Cnil){
  893.     goto T393;}
  894.     base[3]= (V116);
  895.     base[4]= VV[66];
  896.     vs_top=(vs_base=base+3)+2;
  897.     Lchar_neq();
  898.     vs_top=sup;
  899.     if((vs_base[0])==Cnil){
  900.     goto T393;}
  901.     V115= (V116);
  902.     goto T388;
  903. T393:;
  904.     base[3]= symbol_value(VV[50]);
  905.     vs_top=(vs_base=base+3)+1;
  906.     Lread_char();
  907.     vs_top=sup;
  908.     V116= vs_base[0];
  909.     goto T392;}
  910. T388:;
  911.     {object V114= V115;
  912.     if(!eql(V114,VV[51])
  913.     && !eql(V114,VV[52]))goto T407;
  914.     base[3]= (V108);
  915.     base[4]= symbol_function(VV[60]);
  916.     base[5]= Cnil;
  917.     base[6]= (V109);
  918.     vs_top=(vs_base=base+3)+4;
  919.     Levalhook();
  920.     Llist();
  921.     vs_top=sup;
  922.     V110= vs_base[0];
  923.     goto T377;
  924. T407:;
  925.     if(!eql(V114,VV[67])
  926.     && !eql(V114,VV[68]))goto T415;
  927.     (void)((*(LnkLI111))());
  928.     base[3]= (V108);
  929.     base[4]= symbol_function(VV[60]);
  930.     base[5]= Cnil;
  931.     base[6]= (V109);
  932.     vs_top=(vs_base=base+3)+4;
  933.     Levalhook();
  934.     Llist();
  935.     vs_top=sup;
  936.     V110= vs_base[0];
  937.     goto T377;
  938. T415:;
  939.     if(!eql(V114,VV[69])
  940.     && !eql(V114,VV[70]))goto T424;
  941.     (void)((*(LnkLI111))());
  942.     base[3]= (V108);
  943.     base[4]= Cnil;
  944.     base[5]= Cnil;
  945.     base[6]= (V109);
  946.     vs_top=(vs_base=base+3)+4;
  947.     Levalhook();
  948.     Llist();
  949.     vs_top=sup;
  950.     V110= vs_base[0];
  951.     goto T377;
  952. T424:;
  953.     if(!eql(V114,VV[71])
  954.     && !eql(V114,VV[72]))goto T433;
  955.     (void)((*(LnkLI111))());
  956.     base[3]= (V108);
  957.     base[4]= VV[73];
  958.     base[5]= symbol_value(VV[50]);
  959.     base[6]= VV[74];
  960.     base[7]= Ct;
  961.     base[8]= VV[75];
  962.     base[9]= Cnil;
  963.     base[10]= VV[76];
  964.     base[11]= Cnil;
  965.     vs_top=(vs_base=base+3)+9;
  966.     Lwrite();
  967.     vs_top=sup;
  968.     princ_char(10,Cnil);
  969.     goto T380;
  970. T433:;
  971.     if(!eql(V114,VV[77])
  972.     && !eql(V114,VV[78]))goto T445;
  973.     base[4]= Cnil;
  974.     base[5]= Cnil;
  975.     {object tag;frame_ptr fr;object p;bool active;
  976.     frs_push(FRS_PROTECT,Cnil);
  977.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  978.     else{
  979.     {object V117;
  980.     base[7]= symbol_value(VV[50]);
  981.     vs_top=(vs_base=base+7)+1;
  982.     (void) (*Lnk112)();
  983.     vs_top=sup;
  984.     V117= vs_base[0];
  985.     (void)((*(LnkLI111))());
  986.     base[4]= (V117);}
  987.     base[5]= Ct;
  988.     base[7]= Ct;
  989.     vs_top=(vs_base=base+7)+1;
  990.     active=FALSE;}
  991.     base[6]=Cnil;
  992.     while(vs_base<vs_top)
  993.     {base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
  994.     vs_top=sup;
  995.     nlj_active=FALSE;frs_pop();
  996.     if((base[5])==Cnil){
  997.     goto T456;}
  998.     base[3]= base[4];
  999.     goto T446;
  1000. T456:;
  1001.     base[3]= Cnil;
  1002.     goto T446;
  1003.     vs_base=vs_top=base+7;
  1004.     for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  1005.     if(active)unwind(fr,tag);else{
  1006.     vs_top=sup;
  1007.     base[3]= vs_base[0];}}
  1008. T446:;
  1009.     bds_bind(VV[63],base[3]);
  1010.     base[4]= (V108);
  1011.     base[5]= symbol_function(VV[60]);
  1012.     base[6]= Cnil;
  1013.     base[7]= (V109);
  1014.     vs_top=(vs_base=base+4)+4;
  1015.     Levalhook();
  1016.     Llist();
  1017.     vs_top=sup;
  1018.     V110= vs_base[0];
  1019.     bds_unwind1;
  1020.     goto T377;
  1021. T445:;
  1022.     if(!eql(V114,VV[79])
  1023.     && !eql(V114,VV[80]))goto T465;
  1024.     (void)((*(LnkLI111))());
  1025.     setq(VV[62],Ct);
  1026.     base[3]= (V108);
  1027.     base[4]= Cnil;
  1028.     base[5]= Cnil;
  1029.     base[6]= (V109);
  1030.     vs_top=(vs_base=base+3)+4;
  1031.     Levalhook();
  1032.     Llist();
  1033.     vs_top=sup;
  1034.     V110= vs_base[0];
  1035.     goto T377;
  1036. T465:;
  1037.     if(!eql(V114,VV[81])
  1038.     && !eql(V114,VV[82]))goto T476;
  1039.     (void)((*(LnkLI111))());
  1040.     setq(VV[62],(VV[61]->s.s_dbind));
  1041.     base[3]= (V108);
  1042.     base[4]= Cnil;
  1043.     base[5]= Cnil;
  1044.     base[6]= (V109);
  1045.     vs_top=(vs_base=base+3)+4;
  1046.     Levalhook();
  1047.     Llist();
  1048.     vs_top=sup;
  1049.     V110= vs_base[0];
  1050.     goto T377;
  1051. T476:;
  1052.     if(!eql(V114,VV[83])
  1053.     && !eql(V114,VV[84]))goto T487;
  1054.     base[3]= (V109);
  1055.     {VOL object V118;
  1056.     VOL object V119;
  1057.     base[6]= Cnil;
  1058.     base[7]= Cnil;
  1059.     {object tag;frame_ptr fr;object p;bool active;
  1060.     frs_push(FRS_PROTECT,Cnil);
  1061.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  1062.     else{
  1063.     base[10]= Cnil;
  1064.     base[11]= Cnil;
  1065.     {object tag;frame_ptr fr;object p;bool active;
  1066.     frs_push(FRS_PROTECT,Cnil);
  1067.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  1068.     else{
  1069.     {object V120;
  1070.     base[13]= symbol_value(VV[50]);
  1071.     vs_top=(vs_base=base+13)+1;
  1072.     (void) (*Lnk112)();
  1073.     vs_top=sup;
  1074.     V120= vs_base[0];
  1075.     (void)((*(LnkLI111))());
  1076.     base[10]= (V120);}
  1077.     base[11]= Ct;
  1078.     base[13]= Ct;
  1079.     vs_top=(vs_base=base+13)+1;
  1080.     active=FALSE;}
  1081.     base[12]=Cnil;
  1082.     while(vs_base<vs_top)
  1083.     {base[12]=MMcons(vs_top[-1],base[12]);vs_top--;}
  1084.     vs_top=sup;
  1085.     nlj_active=FALSE;frs_pop();
  1086.     if((base[11])==Cnil){
  1087.     goto T503;}
  1088.     base[9]= base[10];
  1089.     goto T493;
  1090. T503:;
  1091.     base[9]= Cnil;
  1092.     goto T493;
  1093.     vs_base=vs_top=base+13;
  1094.     for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  1095.     if(active)unwind(fr,tag);else{
  1096.     vs_top=sup;
  1097.     base[9]= vs_base[0];}}
  1098. T493:;
  1099.     base[10]= Cnil;
  1100.     base[11]= Cnil;
  1101.     base[12]= base[3];
  1102.     vs_top=(vs_base=base+9)+4;
  1103.     Levalhook();
  1104.     Llist();
  1105.     vs_top=sup;
  1106.     base[6]= vs_base[0];
  1107.     base[7]= Ct;
  1108.     base[9]= Ct;
  1109.     vs_top=(vs_base=base+9)+1;
  1110.     active=FALSE;}
  1111.     base[8]=Cnil;
  1112.     while(vs_base<vs_top)
  1113.     {base[8]=MMcons(vs_top[-1],base[8]);vs_top--;}
  1114.     vs_top=sup;
  1115.     nlj_active=FALSE;frs_pop();
  1116.     if((base[7])==Cnil){
  1117.     goto T511;}
  1118.     V118= base[6];
  1119.     goto T488;
  1120. T511:;
  1121.     V118= Cnil;
  1122.     goto T488;
  1123.     vs_base=vs_top=base+9;
  1124.     for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  1125.     if(active)unwind(fr,tag);else{
  1126.     vs_top=sup;
  1127.     V118= vs_base[0];}}
  1128. T488:;
  1129.     V119= car((V118));
  1130. T515:;
  1131.     if(!(endp((V118)))){
  1132.     goto T516;}
  1133.     goto T380;
  1134. T516:;
  1135.     base[6]= (V119);
  1136.     base[7]= VV[73];
  1137.     base[8]= symbol_value(VV[50]);
  1138.     base[9]= VV[75];
  1139.     base[10]= symbol_value(VV[85]);
  1140.     base[11]= VV[76];
  1141.     base[12]= symbol_value(VV[86]);
  1142.     vs_top=(vs_base=base+6)+7;
  1143.     Lwrite();
  1144.     vs_top=sup;
  1145.     princ_char(10,VV[50]);
  1146.     V118= cdr((V118));
  1147.     V119= car((V118));
  1148.     goto T515;}
  1149. T487:;
  1150.     if(!eql(V114,VV[87])
  1151.     && !eql(V114,VV[88]))goto T534;
  1152.     base[3]= (V109);
  1153.     base[4]= Cnil;
  1154.     base[5]= Cnil;
  1155.     {object tag;frame_ptr fr;object p;bool active;
  1156.     frs_push(FRS_PROTECT,Cnil);
  1157.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  1158.     else{
  1159.     base[8]= Cnil;
  1160.     base[9]= Cnil;
  1161.     {object tag;frame_ptr fr;object p;bool active;
  1162.     frs_push(FRS_PROTECT,Cnil);
  1163.     if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
  1164.     else{
  1165.     {object V121;
  1166.     base[11]= symbol_value(VV[50]);
  1167.     vs_top=(vs_base=base+11)+1;
  1168.     (void) (*Lnk112)();
  1169.     vs_top=sup;
  1170.     V121= vs_base[0];
  1171.     (void)((*(LnkLI111))());
  1172.     base[8]= (V121);}
  1173.     base[9]= Ct;
  1174.     base[11]= Ct;
  1175.     vs_top=(vs_base=base+11)+1;
  1176.     active=FALSE;}
  1177.     base[10]=Cnil;
  1178.     while(vs_base<vs_top)
  1179.     {base[10]=MMcons(vs_top[-1],base[10]);vs_top--;}
  1180.     vs_top=sup;
  1181.     nlj_active=FALSE;frs_pop();
  1182.     if((base[9])==Cnil){
  1183.     goto T551;}
  1184.     base[7]= base[8];
  1185.     goto T541;
  1186. T551:;
  1187.     base[7]= Cnil;
  1188.     goto T541;
  1189.     vs_base=vs_top=base+11;
  1190.     for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  1191.     if(active)unwind(fr,tag);else{
  1192.     vs_top=sup;
  1193.     base[7]= vs_base[0];}}
  1194. T541:;
  1195.     base[8]= Cnil;
  1196.     base[9]= Cnil;
  1197.     base[10]= base[3];
  1198.     vs_top=(vs_base=base+7)+4;
  1199.     Levalhook();
  1200.     Llist();
  1201.     vs_top=sup;
  1202.     base[4]= vs_base[0];
  1203.     base[5]= Ct;
  1204.     base[7]= Ct;
  1205.     vs_top=(vs_base=base+7)+1;
  1206.     active=FALSE;}
  1207.     base[6]=Cnil;
  1208.     while(vs_base<vs_top)
  1209.     {base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
  1210.     vs_top=sup;
  1211.     nlj_active=FALSE;frs_pop();
  1212.     if((base[5])==Cnil){
  1213.     goto T559;}
  1214.     V110= base[4];
  1215.     goto T536;
  1216. T559:;
  1217.     V110= Cnil;
  1218.     goto T536;
  1219.     vs_base=vs_top=base+7;
  1220.     for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
  1221.     if(active)unwind(fr,tag);else{
  1222.     vs_top=sup;
  1223.     V110= vs_base[0];}}
  1224. T536:;
  1225.     goto T377;
  1226. T534:;
  1227.     if(!eql(V114,VV[89])
  1228.     && !eql(V114,VV[90]))goto T561;
  1229.     (void)((*(LnkLI111))());
  1230.     base[3]= one_plus(symbol_value(VV[92]));
  1231.     vs_base=vs_top;
  1232.     (void) (*Lnk113)();
  1233.     vs_top=sup;
  1234.     V122= vs_base[0];
  1235.     base[4]= one_minus(V122);
  1236.     base[5]= symbol_value(VV[92]);
  1237.     bds_bind(VV[91],base[3]);
  1238.     bds_bind(VV[92],base[4]);
  1239.     bds_bind(VV[93],base[5]);
  1240.     vs_base=vs_top;
  1241.     (void) (*Lnk114)();
  1242.     vs_top=sup;
  1243.     bds_unwind1;
  1244.     bds_unwind1;
  1245.     bds_unwind1;
  1246.     goto T380;
  1247. T561:;
  1248.     (void)((*(LnkLI111))());
  1249.     princ_char(10,Cnil);
  1250.     base[3]= symbol_value(VV[50]);
  1251.     base[4]= VV[94];
  1252.     vs_top=(vs_base=base+3)+2;
  1253.     Lformat();
  1254.     vs_top=sup;
  1255.     princ_char(10,Cnil);}
  1256. T380:;
  1257.     goto T379;
  1258. T377:;
  1259.     base[3]= (V108);
  1260.     vs_top=(vs_base=base+3)+1;
  1261.     Lconstantp();
  1262.     vs_top=sup;
  1263.     if((vs_base[0])!=Cnil){
  1264.     goto T574;}
  1265.     if(!(type_of((V108))==t_cons)){
  1266.     goto T573;}
  1267.     if(!((car((V108)))==(VV[7]))){
  1268.     goto T573;}
  1269. T574:;
  1270.     base[3]= car((V110));
  1271.     vs_top=(vs_base=base+3)+1;
  1272.     bds_unwind1;
  1273.     return;
  1274. T573:;
  1275.     if(!(endp((V110)))){
  1276.     goto T583;}
  1277.     base[3]= symbol_value(VV[50]);
  1278.     base[4]= VV[95];
  1279.     base[5]= (V111);
  1280.     vs_top=(vs_base=base+3)+3;
  1281.     Lformat();
  1282.     vs_top=sup;
  1283.     goto T581;
  1284. T583:;
  1285.     {object V123;
  1286.     object V124;
  1287.     V123= (V110);
  1288.     V124= Ct;
  1289. T589:;
  1290.     if(!(endp((V123)))){
  1291.     goto T590;}
  1292.     goto T581;
  1293. T590:;
  1294.     if(((V124))==Cnil){
  1295.     goto T596;}
  1296.     base[3]= symbol_value(VV[50]);
  1297.     base[4]= VV[96];
  1298.     base[5]= (V111);
  1299.     base[6]= car((V123));
  1300.     vs_top=(vs_base=base+3)+4;
  1301.     Lformat();
  1302.     vs_top=sup;
  1303.     goto T594;
  1304. T596:;
  1305.     base[3]= symbol_value(VV[50]);
  1306.     base[4]= VV[97];
  1307.     base[5]= (V111);
  1308.     base[6]= car((V123));
  1309.     vs_top=(vs_base=base+3)+4;
  1310.     Lformat();
  1311.     vs_top=sup;
  1312. T594:;
  1313.     V123= cdr((V123));
  1314.     V124= Cnil;
  1315.     goto T589;}
  1316. T581:;
  1317.     (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));
  1318.     base[3]= (V110);
  1319.     vs_top=(vs_base=base+3)+1;
  1320.     Lvalues_list();
  1321.     bds_unwind1;
  1322.     return;}
  1323.     }
  1324. }
  1325. /*    local function CLOSURE    */
  1326.  
  1327. static LC17(base0)
  1328. register object *base0;
  1329. {    register object *base=vs_base;
  1330.     register object *sup=base+VM16; VC16
  1331.     vs_reserve(VM16);
  1332.     {object V125;
  1333.     check_arg(1);
  1334.     V125=(base[0]);
  1335.     vs_top=sup;
  1336.     base[1]= ((car((V125)))==((base0[0]->c.c_car))?Ct:Cnil);
  1337.     vs_top=(vs_base=base+1)+1;
  1338.     return;
  1339.     }
  1340. }
  1341. static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* SIMPLE-BACKTRACE */
  1342. static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* IHS-TOP */
  1343. static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* READ-PRESERVING-WHITESPACE */
  1344. static object  LnkTLI111(){return call_proc0(VV[111],&LnkLI111);} /* STEP-READ-LINE */
  1345. static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* STEPPER */
  1346. static object  LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],&LnkLI110,ap);} /* DELETE-IF */
  1347. static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* RESET-TRACE-DECLARATIONS */
  1348. static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* TRACE-ONE-PREPROCESS */
  1349. static object  LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,1,ap);} /* CHECK-TRACE-SPEC */
  1350. static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,1,ap);} /* UNTRACE-ONE */
  1351. static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,1,ap);} /* CHECK-DECLARATIONS */
  1352. static object  LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* ALL-TRACE-DECLARATIONS */
  1353. static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,3,ap);} /* CHECK-TRACE-ARGS */
  1354.